home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / c64-games.disk / telengrd.d64 / disk telengard (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-03  |  31.9 KB  |  926 lines
  1. 10 REM TELENGARD/64 V4.18
  2. 20 REM (C)COPYRIGHT 1981 BY
  3. 30 REM MICROCOMPUTER GAMES
  4. 40 REM  ALL RIGHTS RESERVED
  5. 50 POKE56,150:POKE644,150:CLR
  6. 1000 SS=-1:SC=49151:CL=55296:I=RND(-TI*SC):SP=214:WW=52488:IB=198:TF=256:TH=255
  7. 1001 FZ=53270
  8. 1005 DEFFNUP(H)=HAND3:DEFFNLF(H)=INT(H/4)AND3:DEFFNR(H)=INT(RND(1)*H+1)
  9. 1009 DEFFNS(H)=INT(H/TF):DEFFNRD(I)=I-INT(I/10)*10
  10. 1015 S$="STRINTWISCONDEXCHR":CM$="WXADSHQPC82465"+CHR$(20)+".[133][134][135][136]"
  11. 1020 MO$="GNOLL   KOBOLD  SKELETONHOBBIT  ZOMBIE  ORC     FIGHTER MUMMY   "
  12. 1025 MO$=MO$+"ELF     GHOUL   DWARF   TROLL   WRAITH  OGRE    MINOTAUR"
  13. 1030 MO$=MO$+"GIANT   SPECTER VAMPIRE DEMON   DRAGON  "
  14. 1035 T$="REFUSESILVERGOLD  GEMS  JEWELS"
  15. 1100 DIMP(3,3),S(5),SF(11),MI$(10),MA$(10),I(10),SP$(36),B(4),EX%(100)
  16. 1102 DIMBW(23),PW(7),CL(5),NT%(59),F(2)
  17. 1103 DIMM%(20),L%(20),H%(20),Z$(9,2):XO=1.6915:YO=1.4278:ZO=1.2462:W0=4694
  18. 1105 MI$(1)="SWORD":MA$(1)=MI$(1):MI$(2)="ARMOR":MA$(2)=MI$(2)
  19. 1115 MI$(3)="SHIELD":MA$(3)=MI$(3):MI$(4)="ELVEN CLOAK":MA$(4)="ELVN CLK"
  20. 1125 MI$(5)="ELVEN BOOTS":MA$(5)="ELVN BTS"
  21. 1130 MI$(6)="RING OF REGENERATION":MA$(6)="RING REG"
  22. 1135 MI$(7)="RING OF PROTECTION":MA$(7)="RING PROT"
  23. 1140 MI$(8)="SCROLL OF RESCUE":MA$(8)="SCRL RESC"
  24. 1145 MI$(9)="POTION OF HEALING":MA$(9)="POT HEAL"
  25. 1150 MI$(10)="POTION OF STRENGTH":MA$(10)="POT STRG"
  26. 1155 B$="RED   YELLOWGREEN BLUE"
  27. 1160 FORI=1TO36:READSP$(I):NEXT:FORI=1TO20:M%(I)=0:NEXT:FORI=0TO2:FORK=0TO9
  28. 1161 READZ$(K,I):NEXTK,I
  29. 1162 DATAMAGIC MISSLE,SLEEP,CURE LIGHT WOUNDS,LIGHT,TURN UNDEAD,PROT/EVIL,WEB
  30. 1164 DATALEVITATE,CAUSE LIGHT WNDS,DETECT TRAPS,CHARM,STRENGTH,LIGHTNING BOLT
  31. 1166 DATACURE SERIOUS WNDS,CONTINUAL LIGHT,INVISIBILITY,HOLD MONSTER
  32. 1168 DATAPHANTSML FORCES,PASS WALL,FIREBALL,CAUSE SERIOUS WND,FLESH TO STONE
  33. 1169 DATAFEAR,FINGER OF DEATH,TELEPORT,ASTRAL WALK,POWER WORD KILL,ICE STORM
  34. 1170 DATAWALL OF FIRE,PLAGUE,TIME STOP,RAISE DEAD,HOLY SYMBOL,WORD OF RECALL
  35. 1172 DATARESTORATION,PRISMATIC WALL
  36. 1173 DATA SALTY,BOLD,LOUD,OLD,GOODLY,WORTHY,LOFTY,FINE,ROCKY,AGED
  37. 1174 DATAROAD,EYE,TOOTH,DRAGON,MUG,DEMON,WHARF,BRIDGE,MEADE,ALE
  38. 1175 DATATAVERN,ALEHOUSE,CELLAR,CLUB,INN,HOUSE,INN,LODGE,MEADHALL,RESTHOUSE
  39. 1190 GOSUB32000:GOSUB33000:GOSUB33050:GOSUB50000:IFSSTHENGOSUB60000
  40. 1200 PRINT"[147]           WELCOME TO":PRINT"  [169]    [146][169]
  41. 1206 [153]"   STEPWAITSTEP    STEPWAITSTEP                           STEPWAITSTEP";
  42. 1207 [153]"  STEPWAITSTEPSTEP (null)WAIT STEPWAITSTEPSTEP (null)WAIT STEP  (null)WAIT STEPCLOSECLOSECLOSEWAITSTEPSTEP   WAITSTEP STEP  (null)STEP   WAITSTEP
  43. 1208 PRINT" [169][146][169][169][146][169][162][169][169][146][169][169][146][169][162][169][169][146][169] [169][146][169][169][146][169] [169][146][169][169][146][169] [169] [146] [169][146][169]  [169][146][169] [169][146][169]
  44. 1209 [153]"STEPWAITSTEP (null)NEW STEPWAITSTEP (null)NEW STEPWAITSTEP STEPWAITSTEP (null)  WAITSTEP (null)  WAITSTEP STEPWAITSTEP   (null)  WAITSTEP
  45. 1210 PRINT"                   [169][146][169]":PRINT"                [169]  [146][169]
  46. 1213 [153]"WOULD YOU LIKE TO:":[153]"   SWAITTART A NEW CHARACTER OR"
  47. 1214 [153]"   RWAITEAD IN AN OLD ONE?";
  48. 1215 [141]50200:[141]16000:[151]FZ,200:[139]C$[178]"SPC("[167]1215
  49. 1216 [139]C$[179][177]"R"[167][153]"START":[141]19000:[137]1400
  50. 1220 [153]"READ":[139]SS[167][141]60100
  51. 1222 [133]"CHARACTER NAME";NM$
  52. 1225 [159]1,8,2,NM$[170]".PLR,S,R"
  53. 1230 [159]15,8,15:[132]15,E,E$:[139]E[178]62[167][153]"NOT ON DISK":[160]1:[160]15:[138]
  54. 1235 [139]E[178]74[167][153]"DISK NOT PRESENT":[160]1:[160]15:[138]
  55. 1245 [132]1,NM$:[153]NM$" FOUND":[141]50700:[151]F4,17:[151]F1[170]1,22
  56. 1250 [141]19500:[141]50750:[132]1,VS
  57. 1255 [129]I[178]0[164]5:[132]1,S(I):[130]
  58. 1260 [132]1,LV:[132]1,GD:[132]1,TG:[132]1,EX:[132]1,CH:[132]1,HP
  59. 1265 [132]1,CX:[132]1,CY:[132]1,CZ:[132]1,SU:[132]1,CS
  60. 1270 [129]I[178]1[164]10:[132]1,I(I):[132]1,SF(I):[130]:[139]VS[177]4.13[167][132]1,SF(11)
  61. 1275 [129]I[178]1[164]20:[132]1,M%(I):[132]1,L%(I):[132]1,H%(I):[130]
  62. 1280 [141]19000:[129]Q[178]1[164]4:[132]1,B(Q):[130]
  63. 1282 [129]I[178]0[164]100:[132]1,EX%(I):[130]
  64. 1285 [139]CZ[178]0[167]CZ[178]1
  65. 1290 [139]CZ[179]0[167][153]"%YOU'RE NOT IN TELENGARD":[137]1240
  66. 1295 [153] NM$;" READ":[160]1
  67. 1298 [139]SS[167][141]60000
  68. 1300 [141]19000:[153]"LOAD";:[158]39043:[141]20300:[141]30025:SY[178]1:[137]2000
  69. 1400 [153]"LOAD<RET> TO USE STATS"
  70. 1500 [129]I[178]0[164]5:Q[178]0:[129]Q1[178]1[164]3:Q[178]Q[170][181]([187](1)[172]6[170]1):[130]Q1:S(I)[178]Q
  71. 1510 [153][202](S$,I[172]3[170]1,3);[196](S(I));"  ":[130]
  72. 1515 [141]16000:[139]C$[179][177][199](13)[167]1400
  73. 1520 HP[178]S(3):CH[178]HP:GD[178]0:TG[178]0:CZ[178]1:LV[178]1:[129]I[178]1[164]10:I(I)[178]0:SF(I)[178]0:[130]:SF(11)[178]0
  74. 1600 [141]19800:CX[178]25:CY[178]13:EX[178]0:SU[178]1:CS[178]1:[153]"LOADYOUR NAME,  NOBLE SIRE? ";
  75. 1602 [141]16200:[139]D$[178]""[167]D$[178]"DEMO":[153]D$;
  76. 1604 NM$[178]D$:[153]
  77. 1610 [153]"YOU ARE NOW DESCENDING INTO THE"
  78. 1620 [153]"DEPTHS OF THE TELENGARD DUNGEON...":[153]"BEWARE....WAIT";
  79. 1630 [141]19000:[141]19000:[153]"LOAD";:[158]39043:L[178]1:[141]20300:[141]15000:SY[178]1:[137]3000
  80. 2000 [129]I[178]1[164]11:SF(I)[178]SF(I)[171]1:[130]:L[178]CZ:[141]17000:[139]SY[178]1[167][141]15000
  81. 2010 SY[178]1:[139]I(6)[178]0[176]CH[178]HP[167]3000
  82. 2015 CH[178]CH[170]I(6):[139]CH[177]HP[167]CH[178]HP
  83. 2020 [141]20300
  84. 3000 [139][187](1)[177].3[167]4000
  85. 3001 [139]SF(6)[177]0[175][187](1)[177].2[167]4000
  86. 3005 M[178][181]([187](1)[172]20[170]1):[139]SF(7)[177]0[175]M[179]5[167]3005
  87. 3006 [139][181]([187](1)[172]20[170]1)[179][178]I(4)[167]20900
  88. 3007 ML[178][181](([187](1)[174]1.5)[172](CZ[172]2[170]2)[170]1):[141]20700
  89. 3008 [139]SF(3)[177]0[175]UN[178]1[175][187](1)[177].8[167]3005
  90. 3009 [139]M[178]20[167][151]CP[170]2,60:[151]CP[170]3,120
  91. 3010 S1[178]M[171]1:S2[178]1:[141]33100:[141]16500:[141]19700:[153]"YOU HAVE ENCOUNTERED A LVL"ML;M$
  92. 3011 [139]SF(9)[177]0[175]M[179]16[175]M[179][177]11[167][141]17500:[137]4000
  93. 3012 I[178][194](SP):[151]SP,18:[153]
  94. 3013 [153][163]23)"LVL"[196](ML)" "M$:[151]SP,I[171]1:[153]
  95. 3015 [151]SP,I[171]1:[153]:MH[178][181](([187](1)[174].5)[172]ML[172]M[170]1):L[178]ML
  96. 3017 [139][187](1)[177].95[167][145][181]([187](1)[172]3[170]1)[137]3030,3045,3072
  97. 3020 [139]M[179][177]9[167]3040
  98. 3025 [139][187](1)[177].04[172]S(5)[167]3040
  99. 3030 [153]"THE "M$" LIKES YOUR BODY":[153]"HE HEALS YOU TO FULL STRENGTH":CH[178]HP
  100. 3037 [141]20300:[141]19000:[141]20600:[137]4000
  101. 3040 [139]M[179][177]4[176][187](1)[179].05[172]S(5)[167]3070
  102. 3045 [153]"THE "M$" MAKES A QUICK MOVE":[141]19000
  103. 3050 [129]I[178]1[164]10:[139]I(I)[177]0[167]3054
  104. 3052 [130]:[153]"YOU HAVE NOTHING HE WANTS TO STEAL!":[137]3037
  105. 3054 I[178][181]([187](1)[172]10[170]1):[139]I(I)[179]1[167]3054
  106. 3056 [153]"HE STEALS ";:[139]I[179]8[167][153]"YOUR "MI$(I):I(I)[178]0:[137]3037
  107. 3060 [153]"A "MI$(I):I(I)[178]I(I)[171]1:[137]3037
  108. 3070 [139]M[179][177]20[176][187](1)[172]30[177]S(5)[167]3090
  109. 3072 I[178][181]([187](1)[172]7[170]1):[139]I(I)[177][178]ML[167]3090
  110. 3074 C[178]ML[171]I(I):C[178][181]([187](1)[172]C[170]1):I(I)[178]I(I)[170]C
  111. 3076 [153]"THE "M$" LIKES YOU!":[141]17500
  112. 3078 [153]"HE GIVES YOU A "MI$(I)" +"I(I):[141]20300:[141]17500
  113. 3080 [141]20600:[137]4000
  114. 3090 [139][187](1)[177].5[170]S(4)[172].02[167]3300
  115. 3100 [153]"FWAITIGHT, CWAITAST, OR EWAITVADE:";:[141]16000
  116. 3102 [139]C$[178]"SPC("[167][153]"WAIT"
  117. 3105 [129]I[178]1[164]7:[139][202]("FCEDIMREADLETSPC(",I,1)[178]C$[167]3115
  118. 3110 [130]:[153]:[153]"THE "M$" IS NOT AMUSED":[141]17500:[137]3100
  119. 3115 [145]I[137]3200,3400,3700,3200,3400,3700,3300
  120. 3200 I[178][181]([187](1)[172]20)[170]LV[170]I(1)[170]S(0)[173]2:[153]"FIGHT"
  121. 3202 [139]SF(1)[177]0[167]I[178]I[170]4
  122. 3204 [139]I[179]10[167][153]"YOU MISSED...":[137]3300
  123. 3205 I[178][181]([187](1)[172]8[170][187](1)[172]LV[172]2[170]I(1)[170]1):[139]SF(1)[177]0[167]I[178]I[170]5
  124. 3207 [153]"YOU DO"I"POINTS DAMAGE"
  125. 3210 MH[178]MH[171]I:[139]MH[177]0[167]3300
  126. 3220 [153]"IT DIED...":[151]SE,1
  127. 3223 E[178]ML[172]M[172]10:EX[178]EX[170]E:[141]19000
  128. 3225 [141]20600:[153]"YOU GAIN"E"EXPERIENCE POINTS":[141]20300:[141]18000
  129. 3230 [141]17500:[137]3900
  130. 3300 DB[178]1:PA[178]0:DR[178]0:MB[178]0:[137]3330
  131. 3305 I[178][181]([187](1)[172]20)[170]ML[171]I(2)[171]I(3)[170]MB
  132. 3306 [139]M[177]16[175]M[179]20[175]SF(4)[177]0[167]I[178]I[171]6
  133. 3310 [139]I[179]10[167][153]"IT MISSED...":[141]17500:[137]3100
  134. 3315 I[178][181](([187](1)[172]8[170][187](1)[172]ML[172]2[170]1)[172]DB):[153]"IT DOES"I"POINTS DAMAGE"
  135. 3320 CH[178]CH[171]I:[141]20260:[139]CH[179]1[167]9000
  136. 3321 [141]19000:[139][187](1)[177]DR[176]SF(4)[177]0[167]3326
  137. 3322 [141]17000:[153]"IT DRAINS A LEVEL!!!":EX[178][181](EX[173]2)
  138. 3323 [139]LV[178]1[167]EX[178][171]1
  139. 3324 [141]18000:[141]17500:[137]3100
  140. 3326 [139][187](1)[177]PA[167][141]17500:[137]3100
  141. 3327 [141]17000:[153]"YOU'RE PARALYZED!!!!":[141]17500:[137]3300
  142. 3330 [139]M[178]13[167]DR[178].1:[137]3305
  143. 3335 [139]M[178]17[167]DR[178].2:[137]3305
  144. 3340 [139]M[178]18[167]DR[178].3:PA[178].3:[137]3305
  145. 3345 [139]M[178]10[167]PA[178].5:[137]3305
  146. 3350 [139]M[179][177]19[167]3365
  147. 3352 [141]17500
  148. 3355 [139][187](1)[177].6[167][153]"IT USES IT'S SWORD!!!":MB[178]4:DB[178]3:[137]3305
  149. 3360 [153]"IT USES IT'S WHIP!!":MB[178]2:DB[178]2:[137]3305
  150. 3365 [139]M[179][177]20[167]3305
  151. 3370 [139][187](1)[177].3[167]MB[178]5:DB[178]2:[137]3305
  152. 3375 [153]"THE DRAGON BREATHS FIRE!!!";:[141]50700:[151]F1[170]1,20:[151]F2[170]1,30
  153. 3376 [151][170]5,196:[151]F[170]12,196:[151]F[170]19,196:[151]F3[170]1,37:[151]F4,129:[151]F5,129
  154. 3378 [151]F6,129:[151]CP[170]8,105:[151]CP[170]9,120:S1[178]26:S2[178]4:[141]33100:[151]M2,2
  155. 3380 [129]Q[178]1[164]60:[151]XE,2:[151]XE,18:[130]:[151]C9,2
  156. 3382 [129]Q[178]1[164]300:[151]XE,2:[151]XE,18:[130]:[151]SE,[194](SE)[175][168]16:[141]50750
  157. 3394 I[178][181]([187](1)[172]20[172]ML[170]1):[139][187](1)[179].05[172]S(3)[167]3398
  158. 3396 [141]17000:[153]"YOU PARTIALLY DODGE IT":I[178][181](I[173]2[170].5)
  159. 3398 [153]"YOU BURN FOR"I"POINTS DAMAGE":[141]19000:[151]C9,11:[137]3320
  160. 3400 D[178]1:[137]21000
  161. 3700 Q[178][181]([187](1)[172]18[170]1):[153]"EVADE"
  162. 3705 [139]Q[179]S(4)[170]I(5)[167]3710
  163. 3707 [153]"YOU'RE ROOTED TO THE SPOT":[141]17500:[141]16500:[137]3300
  164. 3710 [139]SF(8)[177]0[167]C[178][165]R(4):[137]3795
  165. 3715 [145][165]R(4)[137]3720,3730,3740,3750
  166. 3720 C[178]1:[139][165]UP(L%)[179]3[167]3795
  167. 3730 C[178]2:[139][165]UP(P(2,1))[179]3[167]3795
  168. 3740 C[178]3:[139][165]LF(L%)[179]3[167]3795
  169. 3750 C[178]4:[139][165]LF(P(1,2))[179]3[167]3795
  170. 3760 C[178]1:[139][165]UP(L%)[179]3[167]3795
  171. 3770 C[178]2:[139][165]UP(P(2,1))[179]3[167]3795
  172. 3780 C[178]3:[139][165]LF(L%)[179]3[167]3795
  173. 3790 [137]3707
  174. 3795 [141]20600:[141]17000:[137]8120
  175. 3900 [151]CP[170]2,100:[151]CP[170]3,100:[139][187](1)[177].5[167]4002
  176. 4000 [151]CP[170]2,100:[151]CP[170]3,100:[151]SE,1:[139][187](1)[177].2[167]6000
  177. 4002 T[178]0:[139][187](1)[177].85[167]T[178]1
  178. 4005 [141]16500:C[178]0:[139][187](1)[177].7[167]4100
  179. 4007 [153]"YOU SEE SOME ";:I[178][181]([187](1)[172]5):[141]33500
  180. 4010 [153][202](T$,I[172]6[170]1,6):[153]"<RET> TO PICK UP:";
  181. 4011 [139]T[178]1[167][139]SF(2)[177]0[175][187](1)[177].1[167][153]:[153]"YOU DETECT TRAPS!";
  182. 4012 [141]16000:AN[178]0:[139]C$[178][199](13)[167]4020
  183. 4015 [153]"LEAVE IT":[141]17500:[137]6000
  184. 4020 [153]"SNARF IT":[139]T[178]0[167]4040
  185. 4025 Q[178][181]([187](1)[172]3[172]L[170]1):[141]17000
  186. 4030 [153]"IT'S TRAPPED!":[153]"YOU SUFFER"Q"POINTS DAMAGE"
  187. 4035 CH[178]CH[171]Q:[141]20260:[139]CH[179]1[167][141]19000:[137]9000
  188. 4040 J[178][181]([187](1)[172]I[172]L[172]200[170]1):[153]"IT'S WORTH"J"GOLD"
  189. 4045 GD[178]GD[170]J:[139]I[178]0[175][187](1)[177].8[167][141]20300:[141]17000:[137]4200
  190. 4050 [141]20300:[137]4900
  191. 4100 [139][187](1)[177].5[167]4200
  192. 4102 S1[178]29:S2[178]2:[141]33100
  193. 4105 [153]"YOU HAVE FOUND A TREASURE CHEST!!"
  194. 4110 [153]"<RET> TO OPEN IT:";
  195. 4115 [139]T[178]1[167][139]SF(2)[177]0[175][187](1)[177].1[167][153]:[153]"YOU DETECT TRAPS!";
  196. 4120 [141]16000:[139]C$[179][177][199](13)[167][153]"IGNORE IT":[137]6000
  197. 4125 [153]"OPEN IT":[139]T[178]0[167]4140
  198. 4130 [141]17500:[153]"CHEST EXPLODES!!!!!":I[178][181]([187](1)[172]10[172]CZ[170]1):CH[178]CH[171]I
  199. 4135 [153]"YOU SUFFER"I"POINTS DAMAGE":[141]20260:[139]CH[179]1[167]9000
  200. 4140 [141]17500:I[178][181]([187](1)[172]1000[172]L[174]2[170]1)
  201. 4145 [139][187](1)[177].9[167][153]"INSIDE, THERE IS ONLY COBWEBS...":[137]4900
  202. 4150 [153]"INSIDE IS"I"GOLD PIECES!":GD[178]GD[170]I:[141]20300:[139][187](1)[177].5[167]4900
  203. 4155 C[178]1:[141]17500
  204. 4200 I[178][181]([187](1)[172]10[170]1):[153]"YOU SEE A ";
  205. 4205 J[178][181]([187](1)[174].5[172](L[170]1)[170]1):[139]I[177]7[167][153]MI$(I):[137]4215
  206. 4210 [153]MI$(I)" +"J
  207. 4215 [153]"<RET> TO PICK IT UP:";:[141]16000:[139]C$[178][199](13)[167]4225
  208. 4220 [153]"LEAVE IT":[137]4240
  209. 4225 [139]I[179][177]1[176]T[179][177]1[167]4235
  210. 4230 [153]:[153]"IT'S A HOSTILE SWORD!!":I[178][181]([187](1)[172]I[172]5[170]1)
  211. 4232 [153]"YOU SUFFER"I"DAMAGE POINTS":CH[178]CH[171]I:[141]20300:[139]CH[179]1[167]9000
  212. 4234 [137]4900
  213. 4235 [153]"IT'S YOURS!":I(I)[178]I(I)[170]1:[139]I[179]8[167]I(I)[178]J
  214. 4237 [141]20300
  215. 4240 [139]C[178]1[175][187](1)[177].5[167][141]17500:[137]4200
  216. 4900 [151]SE,1:[141]17500
  217. 4910 [139][187](1)[177].5[167][141]30000:[139]M[179][177]0[167]3010
  218. 6000 X[178]CX:Y[178]CY:Z[178]CZ[171]1:[141]10010:J[178][165]S(H%):I[178][165]S(L%)
  219. 6005 [139]CZ[178]1[167]J[178]0
  220. 6010 [139]I[177]9[167]I[178]I[171]9:[137]6010
  221. 6012 [139]J[177]9[167]J[178]J[171]9:[137]6012
  222. 6013 [139]CZ[178]50[175]I[178]4[167]I[178]0
  223. 6014 [139]I[178]0[175]J[179][177]4[167]8000
  224. 6015 [139]J[178]4[167]6500
  225. 6020 [145]I[137]6100,6300,6400,6500,6600,6700,6800,6900,7100
  226. 6100 [139]CZ[179][177]1[167]6200
  227. 6102 J[178]4:[137]6500
  228. 6103 [151]SE,1:M$[178]Z$([165]RD(CX[172]CY),0)[170]" "
  229. 6104 M$[178]M$[170]Z$([165]RD(CX[170]CY),1)[170]" "[170]Z$([165]RD(CX[172]3[170]CY[172]7),2)[170]" "
  230. 6105 [141]17000:[158]39004:S1[178]20:S2[178]3:[141]33100:AR[178]8:AC[178]0:[151]BD,0
  231. 6106 [153]"STEP(null)CMDCMDCMDSTEPWAITSTEP(null)(null)CMDCMDCMDCMDCMDSTEPWAITSTEP  (null)(null)CMDCMDCMDCMDCMDCMD      CMDCMDCMDCMDCMDCMD";
  232. 6107 [153]" CMD CMD      ONCMD ONCMD WAIT";:[151]49524,160:[153]"":[153]
  233. 6108 [153]"   "Z$([165]RD(CX[172]CY),0):[153]"    "Z$([165]RD(CX[170]CY),1)
  234. 6109 [153]"     "Z$([165]RD(CX[172]3[170]CY[172]7),2)
  235. 6110 AN[178]4:[141]16500:[153]"YOU HAVE FOUND THE ";[200](M$,20)
  236. 6111 [153]"THEY CASH IN YOUR GOLD":EX[178]EX[170]GD:TG[178]TG[170]GD:GD[178]0:[141]20300
  237. 6115 [141]18000:[141]30200:[141]17000:CH[178]HP:[153]"YOU HAVE"TG"IN THE SAFE"
  238. 6116 [129]I[178]0[164]11:SF(I)[178]0:[130]
  239. 6119 CS[178]SU:[153]"YOU SPEND THE NIGHT":[141]19000
  240. 6120 [153]"YOU FEEL BETTER":[141]20300:[141]17000
  241. 6125 [153]"PRESS <RET> TO RETURN TO DUNGEON,"
  242. 6130 [153]"<F1> SAVE CHARACTER ON CASSETTE:";
  243. 6135 [141]16000:[139]C$[178]"SPC("[167]6135
  244. 6140 AN[178]0:[139]C$[178]"INPUT"[167][153]:[137]8600
  245. 6142 [139]C$[179][177][199](13)[167]AN[178]4:[153]"???":[141]17500:[137]6125
  246. 6145 [153]"REENTER":[141]17500:CZ[178]1:[137]2000
  247. 6200 [151]CP[170]2,115:[151]CP[170]3,120:S1[178]21:S2[178]1:[141]33100
  248. 6205 [141]16500:[153]"YOU FEEL HEAVY FOR A MOMENT"
  249. 6210 [141]50700:[151]F4,33:[129]Q[178]0[164]80:J[178]120[171]Q[173]2:[151]CP[170]1,J:[151]CP[170]3,J:[151]F1[170]1,Q
  250. 6220 [130]:[141]50750:[151]SE,0:[151]CP[170]1,120:CZ[178]CZ[171]1:[151]CP[170]2,100:[151]CP[170]3,100
  251. 6235 [137]2000
  252. 6300 [139]CZ[178]50[167]6200
  253. 6301 [141]16600:[153]:[153]"":[129]I[178]1[164]4:[153][163]11);"STOP    ":[130]:[153]"WAIT
  254. 6303 GOSUB16500:PRINT"YOU SEE A PIT"
  255. 6304 IFSF(5)>0THENPRINT"YOU ARE HOVERING ABOVE A PIT":GOTO6310
  256. 6305 IFINT(RND(1)*20)>S(4)+I(5)THEN6330
  257. 6310 PRINT"DO YOU WANT TO DESCEND?";:GOSUB16000:IF C$="Y"ORC$="9"THEN6320
  258. 6315 PRINT"NO":GOSUB17500:GOTO8000
  259. 6320 PRINT"YES":GOTO6335
  260. 6330 PRINT"YOU FALL IN!!":L=3:GOSUB20000:GOSUB19000
  261. 6335 CZ=CZ+1:GOSUB50700:FORQ=1TO5:POKECP,120-Q:FORJ=1TO10:NEXT:NEXT:POKECP+27,TH
  262. 6340 POKEF4,17:FORQ=25TO0STEP-1:POKECP+1,165-Q*2:POKEF1+1,Q*10:FORJ=1TO10:NEXT
  263. 6345 NEXT:GOSUB50750:POKESE,0:POKECP+1,120:POKECP+27,0:GOTO2000
  264. 6400 GOSUB16500
  265. 6403 PRINT"ZZAP!! YOU'VE BEEN TELEPORTED...":GOSUB30200
  266. 6405 IF((CX+CY)AND1)=0THENCZ=CZ-1:IF((CX+CY)AND2)=2THENCZ=CZ+2
  267. 6410 CX=CX+CZ*8+CY*13:CY=CY+CZ*6+CX*17
  268. 6415 IFCX>200THENCX=CX-200:GOTO6415
  269. 6420 IFCY>200THENCY=CY-200:GOTO6420
  270. 6425 IFCZ=0THENCZ=1
  271. 6430 IFCZ>50THENCZ=50
  272. 6435 IFRND(1)>.8THEN6405
  273. 6440 FORJ=8TO23:POKEWW+J,0:NEXT
  274. 6442 GOSUB50700:POKEF4,17:POKEF5,129:Q1=25:Q2=193:Q=F1+1
  275. 6445 FORI=7TO0STEP-1:POKEFV,15-I*2:FORK=1TO3:Q1=Q1-1:POKEF2+1,Q1
  276. 6450 FORJ=0TO7:POKEQ,Q2:Q2=Q2-1
  277. 6455 POKEWW+J,BW(J)AND(RND(1)*PW(I))
  278. 6460 POKEQ,TH-Q2:NEXT:NEXT:NEXT:POKEQ,0:GOSUB15000:Q=F1+1:Q1=1:Q2=1
  279. 6470 FORI=0TO7:POKEFV,15-I*2:FORK=1TO3:POKEF2+1,Q1:Q1=Q1+1:FORJ=0TO7:POKEQ,Q2
  280. 6475 Q2=Q2+1:POKEWW+J,BW(J)AND(RND(1)*PW(I))
  281. 6480 POKEQ,TH-Q2:NEXT:NEXT:NEXT:GOSUB50750
  282. 6485 FORJ=0TO23:POKEWW+J,BW(J):NEXT:SY=0:GOTO2000
  283. 6500 S1=22:S2=2:GOSUB33100
  284. 6510 GOSUB17000:PRINT"YOU HAVE FOUND A STAIRWAY"
  285. 6512 IFJ=4ANDCZ=1THENPRINT"YOU SEE LIGHT[146] ABOVE"
  286. 6515 PRINT"DO YOU WANT TO ";:IFJ=4THENPRINT"GO U[146]P, ";
  287. 6525 IFI=4THENPRINT"GO D[146]OWN, ";
  288. 6530 PRINT:PRINT"OR S[146]TAY ON THE SAME LEVEL?";:GOSUB16000
  289. 6532 IFC$="[166]"THENC$="S"
  290. 6535 IF(I<>4AND(C$="D"ORC$="1"))OR(J<>4AND(C$="U"ORC$="7"))THEN6550
  291. 6540 IFC$="U"ORC$="7"THENPRINT"UP":CZ=CZ-1:IFCZ>0THEN2000
  292. 6542 IFCZ<=0THEN6103
  293. 6545 IFC$="D"ORC$="1"THENPRINT"DOWN":CZ=CZ+1:GOTO2000
  294. 6547 IFC$="S"ORC$="5"THENPRINT"STAY":GOSUB17000:GOTO8000
  295. 6550 PRINT"???":GOTO6510
  296. 6600 S1=25:S2=1:GOSUB33100:GOSUB17000:PRINT"YOU HAVE FOUND A HOLY ALTAR"
  297. 6605 PRINT"PRESS <RET> TO WORSHIP";:GOSUB16000:IFC$=CHR$(13)THEN6630
  298. 6610 IFRND(1)>.7THENGOTO8000
  299. 6615 PRINT:PRINT"DIRTY PAGAN TRASH!"
  300. 6620 M=INT(RND(1)*20+1):GOSUB20700:IFUN=0THEN6620
  301. 6625 GOSUB17500:GOTO3007
  302. 6630 PRINT:PRINT"PRESS <RET> TO DONATE MONEY";:GOSUB16000
  303. 6632 IFC$<>CHR$(13)THEN6610
  304. 6634 PRINT:PRINT"HOW MUCH GOLD?";:GOSUB20800:GOSUB17000
  305. 6636 IFC>GDTHENPRINT"YOU DON'T HAVE THAT MUCH!";:GOTO6615
  306. 6640 IFC<50*CZTHENPRINT"[145]";:GOTO6615
  307. 6645 GD=GD-C:GOSUB20300:IFRND(1)<C/(GD+C)THEN6660
  308. 6655 PRINT"THANK YOU FOR YOUR DONATION":GOSUB17500:GOTO8000
  309. 6660 I=INT(RND(1)*7+1):IFSF(I)<0THENSF(I)=0
  310. 6665 SF(I)=SF(I)+INT(RND(1)*100*C/(GD+C)+1)
  311. 6680 PRINT"YOU'VE BEEN HEARD":GOSUB17500:GOTO8000
  312. 6700 C=INT(RND(1)*5+1):S1=23:S2=1:GOSUB33100:POKEC9+1,CL(C)
  313. 6701 GOSUB17000:PRINT"YOU HAVE FOUND A FOUNTAIN"
  314. 6702 PRINT"WITH RUNNING "MID$("WHITEGREENCLEARRED  BLACK",C*5-4,5)" WATER"
  315. 6705 PRINT"<RET> TO DRINK SOME:";:GOSUB16000:IFC$=CHR$(13)THEN6715
  316. 6710 GOSUB17000:GOTO8000
  317. 6715 GOSUB17000:IFRND(1)>.6THEN6750
  318. 6717 IFRND(1)>1-C*.15THEN6730
  319. 6720 PRINT"YOU FEEL BETTER":GOSUB19000:I=INT(RND(1)*3*CZ+1)
  320. 6725 PRINT"YOU HEAL"I"POINTS":CH=CH+I:IFCH>HPTHENCH=HP
  321. 6727 GOSUB20260:GOSUB17500:GOTO8000
  322. 6730 IFRND(1)>.15*CTHEN6745
  323. 6735 PRINT"IT'S POISON!!!":I=INT(RND(1)*3*CZ+1):PRINT"YOU LOSE"I"HIT POINTS"
  324. 6740 CH=CH-I:GOSUB20260:IFCH<1THEN9000
  325. 6742 GOSUB17500:GOTO8000
  326. 6745 GOSUB20100:GOSUB20300:GOSUB17500:GOTO8000
  327. 6750 IFRND(1)>.4THENPRINT"YOU FEEL REFRESHED!":GOSUB17500:GOTO8000
  328. 6752 IFRND(1)>.5THEN6780
  329. 6755 IFRND(1)>.5THEN6770
  330. 6760 PRINT"MAGICAL POWER SURGES THROUGH YOUR BODY":CS=CS+INT(RND(1)*4*CZ+1)
  331. 6765 PRINT"YOU NOW HAVE"CS" SPELLS":GOSUB20250:GOSUB17500:GOTO8000
  332. 6770 PRINT"YOU HAVE BEEN DISPOSESSED!!":FORI=1TO10:I(I)=0:NEXT:GOSUB19000
  333. 6775 GOSUB17500:PRINT"[147]":GOSUB20300:GOSUB15000:GOSUB30025:GOTO8000
  334. 6780 PRINT"YOU FEEL REFRESHED!":GOSUB17500:PRINT"ACTUALLY YOU'RE DRUNK!!"
  335. 6785 IFSF(11)<0THENSF(11)=0
  336. 6786 SF(11)=SF(11)+INT(RND(1)*16+1):GOSUB15000:GOSUB17000:GOTO8000
  337. 6800 GOSUB16600:PRINT"[152][166]";:AN=1:AR=5
  338. 6802 GOSUB17000:PRINT"YOU SEE A LARGE GRAY MISTY CUBE"
  339. 6805 PRINT"<RET> TO WALK IN:";:GOSUB16000:AN=0:IFCHR$(13)<>C$THEN8000
  340. 6810 IFRND(1)>.2THEN6815
  341. 6812 CZ=INT(RND(1)*50+1):GOTO6820
  342. 6815 PRINT:PRINT"A NUMBER FROM 1 TO 50:";:GOSUB20800:IFC$="[166]"THEN6812
  343. 6817 IFC<1ORC>50THENPRINT"NO YOU FOOL!!";:GOSUB17500:GOTO6810
  344. 6818 CZ=C
  345. 6820 SYS39004:PRINT"YOU FLOAT":POKESE,0
  346. 6825 PRINT"     IN SPACE....";
  347. 6830 GOSUB50700:POKEF4,17:FORQQ=1TO4:POKEF1,29:POKEF1+1,21:GOSUB19500
  348. 6835 POKEF1,92:POKEF1+1,22:GOSUB19500:POKEF1,29:POKEF1+1,21:GOSUB19500
  349. 6840 POKEF1,204:POKEF1+1,18:GOSUB19500:NEXT:GOSUB50750:GOTO2000
  350. 6900 S1=24:S2=1:GOSUB33100:AN=3:AR=10
  351. 6902 GOSUB17000:PRINT"YOU SEE A JEWEL ENCRUSTED THRONE"
  352. 6905 PRINT"DO YOU WANT TO P[146]RY SOME JEWELS,"
  353. 6910 PRINT"S[146]IT DOWN, R[146]EAD THE RUNES,":PRINT"OR I[146]GNORE IT:";
  354. 6915 GOSUB50600:GOSUB16000:AN=0:IFC$="I"ORC$="[166]"THENPRINT"IGNORE":GOSUB17500:GOTO8000
  355. 6920 IFC$<>"P"THEN6950
  356. 6925 PRINT"PRY":GOSUB17500:IFRND(1)>.7THEN7030
  357. 6930 IFRND(1)>.4THEN7025
  358. 6935 PRINT"THEY POP INTO YOUR GREEDY HANDS!!":I=INT(RND(1)*1000*CZ+1)
  359. 6940 PRINT"THEY ARE WORTH"I"GOLD":GD=GD+I:GOSUB20300:GOSUB17500:GOTO8000
  360. 6950 IFC$<>"S"THEN6985
  361. 6955 PRINT"SIT";:GOSUB17500:IFRND(1)>.7THEN7030
  362. 6960 IFRND(1)>.6THEN7025
  363. 6965 IFRND(1)>.4THEN6403
  364. 6970 PRINT"A LOUD GONG SOUNDS!";:GOSUB17500:IFRND(1)<.5THEN6975
  365. 6973 EX=INT(EX/2):IFLV=1THENEX=-1
  366. 6974 GOSUB18000:GOTO8000
  367. 6975 IFLV>CZTHENPRINT"NOTHING HAPPENS...";:GOTO7010
  368. 6980 EX=1000*2^LV:GOSUB18000:GOTO8000
  369. 6985 IFC$<>"R"THEN7015
  370. 6990 PRINT"READ";:GOSUB17500
  371. 6992 IFRND(1)>.7THEN7030
  372. 6995 IFRND(1)<S(1)*.05THEN7005
  373. 7000 PRINT:PRINT"YOU DON'T UNDERSTAND THEM...";:GOTO7010
  374. 7005 PRINT:PRINT"A MYSTERIOUS MAGIC GRIPS YOU..":GOSUB20200
  375. 7010 GOSUB17500:GOTO8000
  376. 7015 PRINT"???";:GOSUB17500:GOTO6900
  377. 7025 PRINT"NOTHING HAPPENS...";:GOTO7010
  378. 7030 M=INT(RND(1)*20+1):GOSUB19700
  379. 7032 PRINT"THE "M$" KING RETURNS!!":GOSUB17500:GOSUB16600:GOSUB20700
  380. 7035 PRINT"   ";:ML=INT(RND(1)*CZ*5)+5:GOTO3009
  381. 7100 AN=2:AR=8:AC=0:GOSUB16600:PRINT" [146]";:GOSUB17000:GOSUB50700
  382. 7105 PRINT"YOU SEE A SMALL BOX WITH FOUR COLORED":POKEF4,17
  383. 7110 PRINT"LIGHTS. P[146]USH BUTTONS OR I[146]GNORE:";:GOSUB16000:AN=0:GOSUB50750
  384. 7115 IFC$<>"P"THENPRINT"IGNORE":GOSUB17500:GOTO8000
  385. 7120 PRINT"PUSH":GOSUB17500:CB=1
  386. 7125 PRINT"PUSH R[146]ED, G[146]REEN, Y[146]ELLOW, B[146]LUE":PRINT"OR S[146]TOP:";
  387. 7130 GOSUB16000:IFC$="S"ORC$="[166]"THENPRINT"STOP";:GOSUB17500:GOTO8000
  388. 7135 FORC=1TO4:IFC$=MID$(B$,C*6-5,1)THENM$=MID$(B$,C*6-5,6):GOTO7145
  389. 7140 NEXT:PRINT"???":GOSUB17500:GOTO7125
  390. 7145 GOSUB19705:PRINTM$:IFB(CB)<>CTHEN7170
  391. 7150 CB=CB+1:IFCB<5THENGOSUB17500:GOTO7125
  392. 7155 PRINT"IT OPENS!!!!  ";:GOSUB17500:PRINT"INSIDE YOU FIND JEWELS WORTH"
  393. 7160 GOSUB19800:I=INT(RND(1)*20000*CZ^2+1):PRINTI"IN GOLD!!":GD=GD+I:GOSUB20300
  394. 7165 GOSUB17000:GOTO8000
  395. 7170 I=INT(RND(1)*2*CZ+1):PRINT"AN ELECTRIC BOLT SHOOTS THROUGH YOU!!"
  396. 7172 GOSUB50700:POKEF4,129:FORQ=1TO120:POKEF1+1,Q:NEXT:GOSUB50750
  397. 7175 GOSUB17500:PRINT"YOU SUFFER"I"POINTS DAMAGE":CH=CH-I:GOSUB20260
  398. 7180 IFCH<1THEN9000
  399. 7185 GOSUB17500:GOTO8000
  400. 8000 M=0:GOSUB16500:GOSUB17000:PRINT"->";:GOSUB16000:IFC$="[166]"THENC$="S"
  401. 8100 FORC=1TO22:IFMID$(CM$,C,1)=C$THEN8117
  402. 8110 NEXT
  403. 8115 PRINT"[157][157]NO";:FORI=1TO200:NEXT:GOTO8000
  404. 8117 IFC>9THENC=C-9
  405. 8118 IFSF(11)>0ANDC<6THENPRINT"YOU'RE CONFUSED ->";:C=FNR(5)
  406. 8120 ONCGOTO8150,8200,8250,8300,8350,8800,8700,8900,8970,8600,8910,8925,8945
  407. 8150 IFFNUP(L%)>2ANDSF(8)<1ORCY=1THEN8115
  408. 8155 PRINT"NORTH";:CY=CY-1:GOSUB30100:GOTO2000
  409. 8200 IFFNUP(P(2,1))>2ANDSF(8)<1ORCY=200THEN8115
  410. 8205 PRINT"SOUTH";:CY=CY+1:GOSUB30100:GOTO2000
  411. 8250 IFFNLF(L%)>2ANDSF(8)<1ORCX=1THEN8115
  412. 8255 PRINT"WEST";:CX=CX-1:GOSUB30100:GOTO2000
  413. 8300 IFFNLF(P(1,2))>2ANDSF(8)<1ORCX=200THEN8115
  414. 8305 PRINT"EAST";:CX=CX+1:GOSUB30100:GOTO2000
  415. 8350 PRINT"STAY":FORQ=49483TO49485:POKEQ,32:NEXT:GOSUB30000:IFM<>0THEN3010
  416. 8355 SY=0:GOTO2000
  417. 8600 PRINT"STORE ";NM$:IFNM$<>"DEMO"THEN8610
  418. 8605 PRINT:PRINT"%CANNOT STORE DEMONSTRATION CHARACTER!":GOTO8670
  419. 8610 IFSSTHENGOSUB60100
  420. 8615 PRINT:OPEN1,8,2,"@0:"+NM$+".PLR,S,W"
  421. 8630 Q$=CHR$(34):R$=CHR$(13)
  422. 8635 PRINT#1,Q$;NM$;Q$;R$;:PRINT#1,4.18;R$;:FORI=0TO5:PRINT#1,S(I);R$;:NEXT
  423. 8640 PRINT#1,LV;R$;:PRINT#1,GD;R$;:PRINT#1,TG;R$;:PRINT#1,EX;R$;:PRINT#1,CH;R$;
  424. 8645 PRINT#1,HP;R$;:PRINT#1,CX;R$;:PRINT#1,CY;R$;:PRINT#1,CZ;R$;:PRINT#1,SU;R$;
  425. 8650 PRINT#1,CS;R$;:FORI=1TO10:PRINT#1,I(I);R$;:PRINT#1,SF(I);R$;:NEXT
  426. 8655 PRINT#1,SF(11);R$;:FORI=1TO20:PRINT#1,M%(I);R$;:PRINT#1,L%(I);R$;
  427. 8660 PRINT#1,H%(I);R$;:NEXT:FORI=1TO4:PRINT#1,B(I);R$;:NEXT
  428. 8663 FORI=0TO100:PRINT#1,EX%(I);R$;:NEXT
  429. 8665 CLOSE1:PRINTNM$" STORED":RUN
  430. 8670 GOSUB17500:IFCZ=0THENAN=4:GOTO6125
  431. 8675 GOTO8000
  432. 8700 PRINT"QUIT":PRINT"ARE YOU SURE?";:GOSUB16000
  433. 8702 IFC$<>"Y"ANDC$<>"9"THENPRINT"NO":GOSUB17500:GOTO8000
  434. 8710 PRINT"YES":PRINT"GOOD BYE CRUEL WORLD!!":GOSUB19000:GOTO9000
  435. 8800 SYS39004:POKESE,0:PRINT"COMMANDS ARE:"
  436. 8802 PRINT"      NORTH"
  437. 8805 PRINT"       [176][192][174]"
  438. 8810 PRINT"       [221]W[221]S[146]TAY"
  439. 8815 PRINT"      [176][177][178][177][178][192][174]"
  440. 8820 PRINT"  WEST[221]A[221]S[221]D[221]EAST"
  441. 8825 PRINT"      [173][192][177][178][177][178][189]"
  442. 8830 PRINT"         [221]X[221]"
  443. 8835 PRINT"         [173][192][189]"
  444. 8840 PRINT"        SOUTH"
  445. 8842 PRINT"[149]      [176][192][192][174]"
  446. 8845 PRINT"F[146]IGHT [149][221]F1[146][149][221]SAVE CHAR"
  447. 8850 PRINT"C[146]AST  [149][221]F3[146][149][221]SCRL/RESCUE"
  448. 8855 PRINT"E[146]VADE [149][221]F5[146][149][221]POT/HEALING"
  449. 8860 PRINT"REP[146]LOT[149][221]F7[146][149][221]POT/STRENGTH"
  450. 8865 PRINT"Q[146]UIT  [149][173][192][192][189]":PRINT"H[146]ELP"
  451. 8896 GOSUB17000:PRINT"HIT ANY KEY TO CONTINUE...";:GOSUB16000:GOSUB17500
  452. 8898 GOSUB15000:GOTO8000
  453. 8900 PRINT"RE-PLOT":GOSUB19000:PRINT"[147]";:SYS39043:GOSUB20300:GOSUB15000
  454. 8905 GOSUB30025:GOTO8000
  455. 8910 PRINT"USE SCROLL OF RESCUE"
  456. 8915 IFI(8)<1THEN8920
  457. 8917 I(8)=I(8)-1:CX=25:CY=13:CZ=1:PRINT"***ZAP!!***":GOSUB19000:GOSUB30200
  458. 8918 GD=0:GOSUB20300:GOTO2000
  459. 8920 PRINT"YOU DON'T HAVE ONE!!"
  460. 8922 GOSUB17500:GOTO8000
  461. 8925 PRINT"DRINK HEALING POTION":IFI(9)<1THEN8920
  462. 8935 I(9)=I(9)-1:GOSUB20300:CH=CH+FNR(20):IFCH>HPTHENCH=HP
  463. 8940 PRINT"YOU FEEL BETTER!":GOSUB20300:GOTO8922
  464. 8945 PRINT"DRINK STRENGTH POTION":IFI(10)<1THEN8920
  465. 8950 IFSF(1)<0THENSF(1)=0
  466. 8955 SF(1)=SF(1)+10+INT(RND(1)*20):PRINT"STRENGTH FLOWS THROUGH YOUR BODY"
  467. 8960 I(10)=I(10)-1:GOSUB20300:GOTO8922
  468. 8970 D=0:GOTO21000
  469. 9000 POKESE,0:GOSUB17000:PRINT"YOU DIED!!":GOSUB17500:IFSF(10)>0THEN27205
  470. 9002 PRINT"[147]ANOTHER ";:IFLV<4THENPRINT"NOT SO ";
  471. 9005 PRINT"MIGHTY ADVENTURER":PRINT"BITES THE DUST"
  472. 9006 I=LV:GOSUB50100
  473. 9010 PRINT"DO YOU WANT TO TRY AGAIN?";
  474. 9012 GOSUB16000:IFC$="N"ORC$="3"THEN9020
  475. 9013 IFC$="[166]"THEN9012
  476. 9015 PRINT"YES":CLR:GOTO1000
  477. 9020 PRINT"NO":PRINT"SO LONG.....":GOTO32767
  478. 10010 Q=X*XO+Y*YO+Z*ZO+(X+XO)*(Y+YO)*(Z+ZO)
  479. 10020 H%=(Q-INT(Q))*W0:IFFNS(H%)>5THENH%=H%ANDTH
  480. 10025 IFINT(H%/TF)>0THENH%=(INT((Q*10-INT(Q*10))*15+1)*TF)OR(H%ANDTH)
  481. 10030 IFX=1ORX=201THENH%=H%OR12
  482. 10035 IFY=1ORY=201THENH%=H%OR3
  483. 10040 RETURN
  484. 10050 IFW<2THENRETURN
  485. 10055 FORQ=0TO6:POKESC+L%+Q,161:NEXTQ:IFW>2THENRETURN
  486. 10060 FORQ=2TO4:POKESC+L%+Q,162:NEXTQ:RETURN
  487. 10075 IFW<2THENRETURN
  488. 10080 FORQ=0TO6:POKESC+L%+Q*40,161:NEXTQ:IFW>2THENRETURN
  489. 10085 FORQ=2TO4:POKESC+L%+Q*40,163:NEXTQ:RETURN
  490. 14889 END
  491. 15000 POKEC9,11:IFSF(6)>0THENPOKEC9,0
  492. 15004 Z=CZ:FORQ2=0TO3:Y=CY+Q2-1:FORQ1=0TO3:X=CX+Q1-1:GOSUB10010
  493. 15005 P(Q2,Q1)=H%:NEXT:NEXT:SYS39004:SYS39043:GOSUB16500:PRINT"[145][145]":POKESE,1
  494. 15006 POKEBD,0:IFSF(9)>0THENPOKEBD,1
  495. 15007 SS=-1:POKECP,115:POKECP+1,120:FORI=1TO11:IFSF(I)<1THEN15011
  496. 15009 IFPOS(0)>19THENPRINT:PRINT"[145][145]";
  497. 15010 PRINTMID$("STRGDTRPLGHTPROTLEVTINVSFEARASTWTMSTRSEDDRNK",I*4-3,4)":";
  498. 15011 NEXT:PRINT"";:IFFNUP(P(1,1))>1ORFNLF(P(0,1))>1THEN15015
  499. 15012 L%=4:W=FNUP(P(0,0)):GOSUB10050
  500. 15015 IFFNUP(P(1,0))>1ORFNLF(P(1,1))>1THEN15025
  501. 15020 L%=4:W=FNLF(P(0,0)):GOSUB10075
  502. 15025 IFFNUP(P(1,1))>1THEN15040
  503. 15030 L%=10:W=FNUP(P(0,1)):GOSUB10050:W=FNLF(P(0,1)):GOSUB10075
  504. 15035 L%=16:W=FNLF(P(0,2)):GOSUB10075
  505. 15040 IFFNUP(P(1,1))>1ORFNLF(P(0,2))>1THEN15045
  506. 15042 L%=16:W=FNUP(P(0,2)):GOSUB10050
  507. 15045 IFFNLF(P(1,2))>1ORFNUP(P(1,2))>1THEN15055
  508. 15050 L%=22:W=FNLF(P(0,3)):GOSUB10075
  509. 15055 IFFNLF(P(1,2))>1THEN15080
  510. 15060 L%=256:W=FNUP(P(1,2)):GOSUB10050:L%=262:W=FNLF(P(1,3)):GOSUB10075
  511. 15070 L%=496:W=FNUP(P(2,2)):GOSUB10050
  512. 15080 IFFNUP(P(2,1))>1ORFNLF(P(2,2))>1THEN15085
  513. 15082 L%=736:W=FNUP(P(3,2)):GOSUB10050
  514. 15085 IFFNLF(P(1,2))>1ORFNUP(P(2,2))>1THEN15100
  515. 15090 L%=502:W=FNLF(P(2,3)):GOSUB10075
  516. 15100 IFFNUP(P(2,1))>1THEN15120
  517. 15105 L%=496:W=FNLF(P(2,2)):GOSUB10075
  518. 15110 L%=730:W=FNUP(P(3,1)):GOSUB10050:L%=490:W=FNLF(P(2,1)):GOSUB10075
  519. 15120 IFFNUP(P(2,1))>1ORFNLF(P(2,1))>1THEN15125
  520. 15122 L%=724:W=FNUP(P(3,0)):GOSUB10050
  521. 15125 IFFNLF(P(1,1))>1ORFNUP(P(2,0))>1THEN15140
  522. 15130 L%=484:W=FNLF(P(2,0)):GOSUB10075
  523. 15140 IFFNLF(P(1,1))>1THEN15155
  524. 15145 L%=484:W=FNUP(P(2,0)):GOSUB10050
  525. 15150 L%=244:W=FNLF(P(1,0)):GOSUB10075:W=FNUP(P(1,0)):GOSUB10050
  526. 15155 L%=250:W=FNLF(P(1,1)):GOSUB10075:W=FNUP(P(1,1)):GOSUB10050
  527. 15160 L%=256:W=FNLF(P(1,2)):GOSUB10075:L%=490:W=FNUP(P(2,1)):GOSUB10050
  528. 15200 L%=P(1,1):IFSF(3)<=0THENRETURN
  529. 15300 IFFNS(P(0,0))=0THEN15320
  530. 15305 IFFNUP(P(1,0))<2ANDFNLF(P(1,1))<2THEN15315
  531. 15310 IFFNUP(P(1,1))>1ORFNLF(P(0,1))>1THEN15320
  532. 15315 POKE49278,102
  533. 15320 IFFNS(P(0,1))<>0ANDFNUP(P(1,1))<2THENPOKE49284,102
  534. 15340 IFFNS(P(0,2))=0THEN15360
  535. 15345 IFFNUP(P(1,1))<2ANDFNLF(P(0,2))<2THEN15355
  536. 15350 IFFNUP(P(1,2))>1ORFNLF(P(1,2))>1THEN15360
  537. 15355 POKE49290,102
  538. 15360 IFFNS(P(1,2))<>0ANDFNLF(P(1,2))<2THENPOKE49530,102
  539. 15380 IFFNS(P(2,2))=0THEN15400
  540. 15385 IFFNUP(P(2,2))<2ANDFNLF(P(1,2))<2THEN15395
  541. 15390 IFFNUP(P(2,1))>1ORFNLF(P(2,2))>1THEN15400
  542. 15395 POKE49770,102
  543. 15400 IFFNS(P(2,1))<>0ANDFNUP(P(2,1))<2THENPOKE49764,102
  544. 15420 IFFNS(P(2,0))=0THEN15440
  545. 15425 IFFNUP(P(2,0))<2ANDFNLF(P(1,1))<2THEN15435
  546. 15430 IFFNUP(P(2,1))>1ORFNLF(P(2,1))>1THEN15440
  547. 15435 POKE49758,102
  548. 15440 IFFNS(P(1,0))<>0ANDFNLF(P(1,1))<2THENPOKE49518,102
  549. 15499 RETURN
  550. 16000 IFANTHEN40000
  551. 16002 FORQ=1TO400:GETC$:IFC$=""THEN16010
  552. 16005 IFC$<>CHR$(3)THENRETURN
  553. 16006 PRINT"NO R/S[157][157][157][157][157][157]";:FORI7=1TO500:NEXT:PRINT"[146]      [157][157][157][157][157][157]";:GOTO16000
  554. 16010 NEXT:IFNM$="DEMO"THEN16000
  555. 16015 C$="[166]":RETURN
  556. 16200 D$=""
  557. 16205 PRINT"[164]";
  558. 16206 GETC$:IFC$=""THEN16206
  559. 16210 PRINT"[157] [157]";:IFC$=CHR$(13)THENRETURN
  560. 16215 IFC$<>CHR$(20)THEN16235
  561. 16220 IFLEN(D$)=0THEN16205
  562. 16225 PRINT"[157] [157]";:IFLEN(D$)<2THEN16200
  563. 16230 D$=LEFT$(D$,LEN(D$)-1):GOTO16205
  564. 16235 IFLEN(D$)>=30OR((C$<"0"ORC$>"9")AND(C$<"A"ORC$>"Z"))THEN16205
  565. 16240 D$=D$+C$:PRINTC$;:GOTO16205
  566. 16500 PRINT"";:RETURN
  567. 16600 PRINT"";:RETURN
  568. 17000 SYS38991:GOSUB16500:RETURN
  569. 17500 GOSUB19000:GOTO17000
  570. 18000 IFEX<1000*2^LVTHEN18040
  571. 18010 GOSUB17000:PRINT"YOU WENT UP A LEVEL!";:LV=LV+1:J=INT(RND(1)*S(3)+1)
  572. 18015 I=1:GOSUB50100:CH=CH+J:HP=HP+J:IFEX>1000*2^LVTHENEX=1000*2^LV-1
  573. 18017 CS=CS+LV:SU=SU+LV
  574. 18020 GOSUB20300:GOSUB17500:PRINT"YOU GAIN"J"HIT POINTS":RETURN
  575. 18040 IFLV=1ANDEX>=0THENRETURN
  576. 18050 IFEX>=1000*2^(LV-1)THENRETURN
  577. 18055 CS=CS-LV:SU=SU-LV:IFCS<0THENCS=0
  578. 18060 PRINT"YOU GO DOWN A LEVEL!";:LV=LV-1:J=INT(RND(1)*S(3)+1)
  579. 18070 CH=CH-J:HP=HP-J:GOSUB20300:GOSUB17500:PRINT"YOU LOSE"J"HIT POINTS"
  580. 18075 IFCH>0ANDLV>0THENRETURN
  581. 18080 GOSUB19000:GOTO9000
  582. 19000 TI$="000000":IFANTHEN19005
  583. 19002 IFTI<90THEN19002
  584. 19003 RETURN
  585. 19005 FORQ=1TOA2:QQ=QQ:GOSUB40050:NEXT:IFTI<90THEN19005
  586. 19010 RETURN
  587. 19500 FORQ=1TO100:NEXT:RETURN
  588. 19700 M$=MID$(MO$,M*8-7,8)
  589. 19705 IFRIGHT$(M$,1)=" "THENM$=LEFT$(M$,LEN(M$)-1):GOTO19705
  590. 19710 RETURN
  591. 19800 FORQ=1TO4:B(Q)=INT(RND(1)*4+1):NEXTQ:RETURN
  592. 19900 RETURN:PRINT"[147]":FORQ=1TO5:PRINT"                 ":NEXT:RETURN
  593. 20000 D=INT(RND(1)*L*6+1):PRINT"YOU SUFFER"D"HIT POINTS":CH=CH-D
  594. 20005 IFCH>0THENGOSUB20260:RETURN
  595. 20010 PRINT"YOUR LIFE HAS BEEN TERMINATED":GOSUB20300:GOSUB17500:GOTO9000
  596. 20100 I=INT(RND(1)*500*CZ+1):PRINT"YOU JUST ";
  597. 20110 IFRND(1)>.5THENPRINT"LOST";:I=-I:GOTO20120
  598. 20115 PRINT"GAINED";
  599. 20120 PRINTABS(I);"EXPERIENCE POINTS":EX=EX+I:GOSUB18000:RETURN
  600. 20200 I=INT(RND(1)*6):IFRND(1)>.5THEN20220
  601. 20210 IFS(I)=18THEN20200
  602. 20215 PRINT"YOUR ";MID$(S$,I*3+1,3);" GOES UP";:S(I)=S(I)+1:GOTO20240
  603. 20220 IFS(I)=3THEN20200
  604. 20225 PRINT"YOUR ";MID$(S$,I*3+1,3);" GOES DOWN";:S(I)=S(I)-1
  605. 20240 PRINT" BY 1":GOSUB20300:GOSUB19000:RETURN
  606. 20250 K=PEEK(SP):PRINT"":EN=2:GOTO20322
  607. 20260 K=PEEK(SP):PRINT"":EN=3:GOTO20320
  608. 20300 EN=1:K=PEEK(SP):PRINT""
  609. 20301 PRINTTAB(23)"[145]"LEFT$(NM$,7);TAB(31)"LVL"STR$(LV)" "
  610. 20302 PRINTTAB(23)"STR"STR$(S(0));:GOSUB20400:PRINT"CON"STR$(S(3))
  611. 20305 PRINTTAB(23)"INT"STR$(S(1));:GOSUB20400:PRINT"DEX"STR$(S(4))
  612. 20310 PRINTTAB(23)"WIS"STR$(S(2));:GOSUB20400:PRINT"CHR"STR$(S(5))
  613. 20320 PRINTTAB(23)"HP"STR$(CH)"/"MID$(STR$(HP),2)"  "
  614. 20321 IFEN=3THEN20396
  615. 20322 PRINTTAB(23)"SU"STR$(CS)"/"MID$(STR$(SU),2)"  "
  616. 20323 IFEN=2THEN20396
  617. 20325 C$=LEFT$(STR$(EX),14):PRINTTAB(23)"EX";C$;LEFT$("          ",14-LEN(C$))
  618. 20330 C$=LEFT$(STR$(GD),14):PRINTTAB(23)"GD";C$;LEFT$("          ",14-LEN(C$))
  619. 20335 FORI=1TO10:IFI<4THENIFI(I)>=0THEN20345
  620. 20340 IFI(I)<1THEN20380
  621. 20345 PRINTTAB(24);:IFI>7THEN20365
  622. 20350 PRINTMA$(I);:IFI(I)>0THENPRINT" +"MID$(STR$(I(I)),2);" ";:GOTO20355
  623. 20352 PRINT"    ";
  624. 20355 PRINT:GOTO20380
  625. 20365 PRINTSTR$(I(I))" "MA$(I)
  626. 20380 NEXT
  627. 20390 PRINTTAB(23)"                ";
  628. 20396 IFK<3THENK=3
  629. 20398 POKESP,K-1:PRINT:RETURN
  630. 20400 IFPOS(0)<31THENPRINT" ";:GOTO20400
  631. 20410 RETURN
  632. 20600 POKESP,18:PRINT:PRINTTAB(23);"               "
  633. 20605 GOSUB17000:POKESE,PEEK(SE)AND(NOT2):RETURN
  634. 20700 UN=0:IFM=3ORM=5ORM=8ORM=10ORM=13ORM=17ORM=18THENUN=1
  635. 20705 RETURN
  636. 20800 D$=""
  637. 20805 GOSUB16000:IFC$<>CHR$(20)THEN20825
  638. 20810 IFD$=""THEN20805
  639. 20815 PRINT"[157] [157]";:IFLEN(D$)=1THEN20800
  640. 20820 D$=LEFT$(D$,LEN(D$)-1):GOTO20805
  641. 20825 IFC$=CHR$(13)THENC=VAL(D$):PRINT:RETURN
  642. 20826 IFC$="[166]"THENC=0:RETURN
  643. 20827 IFLEN(D$)>9THEN20805
  644. 20828 IFC$="-"ANDD$=""THEN20835
  645. 20830 IFC$<"0"ORC$>"9"THEN20805
  646. 20835 PRINTC$;:D$=D$+C$:GOTO20805
  647. 20900 GOSUB16500:PRINT"YOU HAVE NOT BEEN NOTICED...":POKE49483,63
  648. 20905 PRINT"<RET> TO APPROACH:";:GOSUB16000
  649. 20910 POKE49483,32:IFC$=CHR$(13)THENGOSUB17000:GOTO3007
  650. 20915 GOSUB17000:GOTO4000
  651. 21000 PRINT"CAST":PRINT"SPELL LEVEL:";:GOSUB16000:C=VAL(C$):PRINTC$
  652. 21002 IFC>0ANDC<=INT(LV/3)+1ANDC<7THEN21010
  653. 21004 IFC=0THEN21910
  654. 21005 PRINT"YOU DON'T HAVE THAT LEVEL SPELLS!":GOSUB19000:GOTO21910
  655. 21010 IFC>CSTHENPRINT"YOU DON'T HAVE ENOUGH SPELL UNITS!":GOTO21900
  656. 21020 PRINT"SPELL( = TO LIST):";:GOSUB16000:IFC$=CHR$(13)ORC$="[166]"THEN21910
  657. 21025 IFC$<"1"ORC$>"6"THENC$="="
  658. 21030 IFC$="="THEN21040
  659. 21035 CS=CS-C:GOSUB20250:PRINTTAB(18);:GOTO21050
  660. 21040 GOSUB17000:PRINT"[145]":FORI=1TO3:PRINTI;LEFT$(SP$(I+6*(C-1)),20);
  661. 21045 PRINTTAB(20);I+3;LEFT$(SP$(I+3+6*(C-1)),19):NEXT
  662. 21046 PRINT:PRINT"PRESS ANY KEY TO CONTINUE...";:GOSUB16000:GOSUB17000
  663. 21047 IFC$<"1"ORC$>"6"THEN21020
  664. 21048 GOTO21035
  665. 21050 S=VAL(C$):ONCGOTO22000,23000,24000,25000,26000,27000
  666. 21700 MH=MH-I:PRINT"IT SUFFERS"I"HIT POINTS":IFMH>0THEN21900
  667. 21705 GOTO3220
  668. 21750 PRINT"NOT IN MELEE!!":GOSUB17500:GOTO3300
  669. 21800 PRINT"YOU JUST WASTED A COMBAT SPELL!"
  670. 21900 GOSUB17500:IFD=1THEN3300
  671. 21905 GOTO8000
  672. 21910 GOSUB17000:IFD=1THEN3100
  673. 21915 GOTO8000
  674. 21920 GOSUB17500:GOSUB20600:GOTO4000
  675. 21930 PRINT"UNDEAD ARE ALREADY DEAD!!":GOTO21900
  676. 22000 ONSGOTO22100,22200,22300,22400,22500,22600
  677. 22100 PRINTSP$(1):GOSUB17500:IFD=0THEN21800
  678. 22105 POKEBK,2:GOSUB19500:POKEBK,0:I=INT(RND(1)*8+5):GOTO21700
  679. 22200 PRINTSP$(2):GOSUB17500:IFD=0THEN21800
  680. 22202 IFUN=1THENPRINT"UNDEAD DON'T SLEEP!":GOTO3300
  681. 22205 IFINT(RND(1)*20+1)>S(1)THENPRINT"THE "M$" ISN'T SLEEPY!":GOTO3300
  682. 22210 PRINT"THE "M$" IS SLEEPING":PRINT"PRESS <RET> TO KILL:";:GOSUB16000
  683. 22215 IFC$<>CHR$(13)THENGOSUB17000:GOTO3710
  684. 22220 IFRND(1)>.2THEN3220
  685. 22225 PRINT"IT WOKE UP!!":GOSUB19000:GOTO3300
  686. 22300 PRINTSP$(3):I=INT(RND(1)*8+1):PRINT"YOU FEEL BETTER":CH=CH+I
  687. 22305 IFCH>HPTHENCH=HP
  688. 22310 GOSUB20260:GOTO21900
  689. 22400 S=4:T=3:U=11
  690. 22402 PRINTSP$(S):IFSF(T)<0THENSF(T)=0
  691. 22405 SF(T)=SF(T)+INT(RND(1)*U+5):GOTO21900
  692. 22500 PRINTSP$(5):GOSUB17500:IFD=0THEN21800
  693. 22505 IFUN=1THEN22515
  694. 22510 PRINT"THE "M$" IS INSULTED":PRINT"AT BEING CALLED UNDEAD":GOTO21900
  695. 22515 IFRND(1)<.05*S(2)+.05*LV-.05*MLTHEN22525
  696. 22520 PRINT"THE "M$" LISTENS WITH DEAF EARS":GOTO21900
  697. 22525 ML=INT((ML/2)+.5):PRINT"IT RUNS IN FEAR!!":GOTO3223
  698. 22600 S=6:T=4:U=11:GOTO22402
  699. 23000 ONSGOTO23100,23200,23300,23400,23500,23600
  700. 23100 PRINTSP$(7):GOSUB17500:IFD=0THEN21800
  701. 23105 IFINT(RND(1)^2*20+ML)>S(1)THENPRINT"THE "M$" DODGES ASIDE!":GOTO3300
  702. 23107 POKEC9+1,1:POKEM1,1:POKEM2,1
  703. 23110 PRINT"THE "M$" IS WEBBED!":PRINT"PRESS <RET> TO KILL:";:GOSUB16000
  704. 23115 IFC$<>CHR$(13)THENGOSUB17000:GOTO3710
  705. 23120 IFRND(1)-ML/20>.2THEN3220
  706. 23125 PRINT"IT BROKE FREE!!":GOSUB19000:GOTO3300
  707. 23200 S=8:T=5:U=21:GOTO22402
  708. 23300 PRINTSP$(9):GOSUB17500:IFD=0THEN21800
  709. 23305 I=INT(RND(1)*12+3):GOTO21700
  710. 23400 S=10:T=2:U=21:GOTO22402
  711. 23500 PRINTSP$(11):GOSUB17000:IFD=0THEN21800
  712. 23502 IFUN=1THENPRINT"THE UNDEAD IGNORE YOUR WILES!":GOTO3300
  713. 23505 IFINT((RND(1)^2)*20+1)>S(5)THENPRINT"THE "M$" RESISTS YOU!":GOTO3300
  714. 23510 PRINT"THE "M$" IS CHARMED":PRINT"PRESS <RET> TO KILL:";:GOSUB16000
  715. 23515 GOTO23115
  716. 23600 S=12:T=1:U=21:GOTO22402
  717. 24000 ONSGOTO24100,24200,24300,24400,24500,24600
  718. 24100 PRINTSP$(13):GOSUB17000:PRINT"ZZZZAAAAPP!!!":IFD=0THEN21800
  719. 24102 POKEBK,1:GOSUB50700:POKEF4,129:FORQ=1TO55:POKEF1+1,Q:NEXT:GOSUB50750
  720. 24105 POKEBK,0:GOSUB19000:I=INT(RND(1)*6*LV+15):GOTO21700
  721. 24200 PRINTSP$(14):I=INT(RND(1)*24+1):PRINT"YOU FEEL BETTER":CH=CH+I
  722. 24205 IFCH>HPTHENCH=HP
  723. 24210 GOSUB20260:GOTO21900
  724. 24300 S=15:T=3:U=31:GOTO22402
  725. 24400 S=16:T=6:U=21:GOTO22402
  726. 24500 PRINTSP$(17):GOSUB17500:IFD=0THEN21800
  727. 24505 IFINT(RND(1)*20+ML)>S(1)THENPRINT"THE "M$" IGNORES YOU!":GOTO3300
  728. 24510 PRINT"THE "M$" IS HELD!":PRINT"PRESS <RET> TO KILL:";:GOSUB16000
  729. 24515 IFC$<>CHR$(13)THENGOSUB17000:GOTO3710
  730. 24520 IFRND(1)>.2+ML*.03THEN3220
  731. 24525 PRINT"IT BROKE FREE!!":GOSUB19000:GOTO3300
  732. 24600 PRINTSP$(18):GOSUB17500:IFD=0THEN21800
  733. 24605 IFINT(RND(1)*22+ML)<S(1)THEN24615
  734. 24610 PRINT"THE "M$" DOESN'T BELEIVE!":GOTO3300
  735. 24615 PRINT"IT BELIEVES!....ARRGH...":GOTO3220
  736. 25000 ONSGOTO25100,25200,25300,25400,25500,25600
  737. 25100 PRINTSP$(19):GOSUB17500:IFD=1THEN21750
  738. 25105 PRINT"DIRECTION>";:GOSUB16000
  739. 25110 FORI=1TO9:IFMID$("WXAD8246[166]",I,1)=C$THEN25117
  740. 25115 NEXT:PRINT"???":GOSUB17000:GOTO25105
  741. 25117 IFI>4THENI=I-4
  742. 25118 IFI=5THEN21900
  743. 25120 IF(I=1ANDCY>1)OR(I=2ANDCY<200)OR(I=3ANDCX>1)OR(I=4ANDCX<200)THEN25125
  744. 25122 PRINT"ONLY STONE THERE....":GOTO21900
  745. 25125 GOSUB30200:PRINT:PRINT"[166][166][166][166]POOF[146][166][166][166][166]":ONIGOTO25135,25145,25130,25140
  746. 25130 FORQ=115TO65STEP-1:POKECP,Q:NEXT:GOTO25190
  747. 25135 FORQ=120TO70STEP-1:POKECP+1,Q:NEXT:GOTO25190
  748. 25140 FORQ=115TO165:POKECP,Q:NEXT:GOTO25190
  749. 25145 FORQ=120TO170:POKECP+1,Q:NEXT:GOTO25190
  750. 25190 ONIGOTO8155,8205,8255,8305
  751. 25200 PRINTSP$(20):GOSUB17000:PRINT"WHOOOOOSHH!!!":IFD=0THEN21800
  752. 25205 PRINT"THE "M$" IS BURNING!":I=INT(RND(1)*12*LV+15):POKEM1,2:POKEM2,2
  753. 25210 POKEC9+1,2:FORQ=0TO255:POKEBK,Q:Q=Q:NEXT:POKEBK,0:GOTO21700
  754. 25300 PRINTSP$(21):GOSUB17500:IFD=0THEN21800
  755. 25305 I=INT(RND(1)*32+10):GOTO21700
  756. 25400 PRINTSP$(22):GOSUB17500:IFD=0THEN21800
  757. 25405 IFRND(1)>.6THENPRINT"THE "M$" ISN'T AFFECTED":GOTO3300
  758. 25410 POKEC9+1,12:POKEM1,12:POKEM2,12:PRINT"ONE STONE STATUE....":GOSUB19000:GOTO3220
  759. 25500 S=23:T=7:U=30:GOTO22402
  760. 25600 PRINTSP$(24):GOSUB17500:PRINT"DIE!!!!!!":IFD=0THEN21800
  761. 25603 IFUN=1THEN21930
  762. 25605 GOSUB19000:IFRND(1)>.3+ML*.04-LV*.03THEN3220
  763. 25610 PRINT"THE "M$" LAUGHS!":GOSUB17500:GOTO3300
  764. 26000 ONSGOTO26100,26200,26300,26400,26500,26600
  765. 26100 PRINTSP$(25):GOSUB17500:IFD=1THEN21750
  766. 26105 PRINT"+NORTH/-SOUTH:";:GOSUB20800:NY=C:PRINT"+EAST/-WEST:";:GOSUB20800
  767. 26110 NX=C:PRINT"+UP/-DOWN:";:GOSUB20800:NZ=C:I=SQR(NX^2+NY^2+(NZ*5)^2)-.1
  768. 26115 IFI>LV*5THENPRINT"TOO FAR...TRY AGAIN":GOSUB17500:GOTO26105
  769. 26120 NX=CX+NX:NY=CY-NY:NZ=CZ-NZ
  770. 26125 IFNX>0ANDNX<201ANDNY>0ANDNY<201ANDNZ<51THEN26135
  771. 26130 PRINT"ONLY STONE THERE....THE SPELL FAILS..":GOTO21900
  772. 26135 IFNZ<1THENPRINT"ONLY THIN AIR...THE SPELL FAILS":GOTO21900
  773. 26140 CX=NX:CY=NY:CZ=NZ:PRINT"[159][166][166][166]POOF![166][166][166]":GOSUB30200:GOTO2000
  774. 26200 S=26:T=8:U=16:GOTO22402
  775. 26300 PRINTSP$(27):GOSUB17500:IFD=0THEN21800
  776. 26305 PRINT"QWERTY!!!!":GOSUB19000:IFUN=0ANDRND(1)<.8THEN3220
  777. 26307 IFUN=1THEN21930
  778. 26310 PRINT"[145]THE "M$" DOESN'T HEAR...":GOTO21900
  779. 26400 PRINTSP$(28):GOSUB17500:IFD=0THEN21800                         
  780. 26405 PRINT"BRRRR!!!!":I=60:GOTO21700
  781. 26500 PRINTSP$(29):GOSUB17500:POKE49483,102:PRINT"WWHHOOOOOSSHHH!!!"
  782. 26505 PRINT"A WALL OF FIRE APPEARS ABOUT YOU":POKEBK,2:GOSUB19000:GOSUB17500
  783. 26507 POKEBK,0:IFD=0THEN21800
  784. 26510 POKE49483,32:IFRND(1)>.4THENPRINT"THE "M$" IS GONE":GOTO21920
  785. 26515 PRINT"THE "M$" WALKS THROUGH!!!":I=INT(RND(1)*12+8):GOTO21700
  786. 26600 PRINTSP$(30):GOSUB17500:IFD=0THEN21800
  787. 26605 IFUN=1THEN21930
  788. 26610 PRINT"BLACK DEATH FOR THE "M$
  789. 26615 GOSUB17500:IFRND(1)>S(2)*.05THENPRINT"IT IS IMMUNE!":GOTO21900
  790. 26620 IFRND(1)*2<S(3)*.03+1THEN3220
  791. 26625 PRINT"THE SPELL BACKFIRES!!":GOSUB17500:GOTO9000
  792. 27000 ONSGOTO27100,27200,27300,27400,27500,27600
  793. 27100 PRINTSP$(31):GOSUB17500:PRINT"TIME IS FROZEN, MONSTERS CANNOT"
  794. 27105 PRINT"ATTACK YOU":IFSF(9)<0THENSF(9)=0
  795. 27110 SF(9)=SF(9)+FNR(20)+4:IFD=1THEN4000
  796. 27115 GOTO21900
  797. 27200 S=32:T=10:U=40:GOTO22402
  798. 27205 PRINTSP$(32):GOSUB17500:S(3)=S(3)-1
  799. 27207 SF(10)=0:IFRND(1)>S(3)*.06THEN27220
  800. 27210 PRINT"IT WORKS!!":CH=HP:GOSUB20300:POKESE,1:GOSUB20600:D=0:GOTO21900
  801. 27220 PRINT"IT DOESN'T WORK!":GOTO9000
  802. 27300 PRINTSP$(33):GOSUB17500:IFD=0THEN21800
  803. 27305 FORU=1TO9:PRINTTAB(16);MID$(".[215]*[209][166][191][166] ",U,1);"[145]":GOSUB19500:NEXT
  804. 27307 GOSUB19000:IFRND(1)<.9THEN3220
  805. 27310 PRINT"THE "M$" DOESN'T SEE...":GOTO21900
  806. 27400 PRINTSP$(34):GOSUB17500:IFD=1THEN21750
  807. 27405 FORI=0TO10:I(I)=0:NEXT:GD=0:PRINT"[147]";:GOSUB20300:GOSUB30200
  808. 27410 CX=25:CY=13:CZ=1:PRINT"***ZAP!!***":GOSUB19000:GOTO2000
  809. 27500 PRINTSP$(35):GOSUB17500:PRINT"YOU FEEL BETTER!":CH=HP:GOSUB20260
  810. 27505 GOTO21900
  811. 27600 PRINTSP$(36):GOSUB17500:PRINT"A SHIFTING MULTI-COLORED WALL APPEARS"
  812. 27605 IFD=0THEN21800
  813. 27610 FORJ=1TO64:POKE49523,102:POKE49523,230
  814. 27612 POKE55667,((PEEK(55667)+1)AND15):NEXT
  815. 27615 POKE49523,32:POKESE,1:PRINT"THE "M$" IS GONE":GOTO21920
  816. 30000 M=0:IFM%(1)=0THEN30020
  817. 30010 M=M%(1):ML=L%(1):MH=H%(1):GOSUB20700
  818. 30020 FORI=1TO19:M%(I)=M%(I+1):L%(I)=L%(I+1):H%(I)=H%(I+1):NEXT
  819. 30022 M%(20)=0:L%(20)=0:H%(20)=0
  820. 30025 PRINT"":PRINTTAB(22)"[145]";:FORQ=1TO20:IFM%(Q)=0THENPRINT" [157]";:GOTO30040
  821. 30030 PRINT"[209][157]";
  822. 30040 NEXT:RETURN
  823. 30100 FORQ=19TO1STEP-1:M%(Q+1)=M%(Q):L%(Q+1)=L%(Q):H%(Q+1)=H%(Q):NEXT
  824. 30105 IFM=0THENM%(1)=0:L%(1)=0:H%(1)=0:GOTO30025
  825. 30110 M%(1)=M:L%(1)=ML:H%(1)=MH:GOTO30025
  826. 30200 FORQ=1TO20:M%(Q)=0:L%(Q)=0:H%(Q)=0:NEXT:GOTO30025
  827. 32000 RETURN:REMENABLE PROTECTION HERE
  828. 32767 GOSUB19000:SYS(PEEK(65532)+256*PEEK(65533)):END
  829. 33000 REM *INIT ALL SPRITE FUNCTIONS*
  830. 33005 B2=50176:SO=64:CP=53248:SL=50168:XX=CP+16:SE=CP+21:YE=CP+23:XE=CP+29
  831. 33010 MC=CP+28:M1=CP+37:M2=CP+38:C9=CP+39:B1=1024:B3=39872:BK=CP+33:BD=CP+32
  832. 33015 POKESE,0:POKEM1,7:POKEM2,9:POKEXX,0:POKEXE,0:POKEYE,0:POKEMC,0
  833. 33020 POKEF+27,TH:FORI=0TO7:PW(I)=2^I:READJ:POKECP+I,J:NEXT
  834. 33025 DATA115,120,100,100,110,95,90,75
  835. 33030 FORI=1TO5:READCL(I):NEXT
  836. 33035 DATA1,5,12,2,0
  837. 33040 POKESL,31:POKEC9,11:AN=0:AR=10:RETURN
  838. 33050 REM *INIT CHAR GRAPHIC CHANGES*
  839. 33055 FORI=0TO23:READBW(I):POKEWW+I,BW(I):NEXT:RETURN
  840. 33060 DATA0,247,247,247,0,127,127,127
  841. 33065 DATA0,0,0,255,255,0,0,0
  842. 33070 DATA24,24,24,24,24,24,24,24
  843. 33100 REM *COPY SPRITE S1 TO SLOT S2*
  844. 33103 POKEM1,7:POKEM2,9:IFS1>15THENS1=S1+1
  845. 33105 POKESE,PEEK(SE)ANDNOTPW(S2):Q=B3+S1*2:POKEC9+S2,PEEK(Q+1):Q=PEEK(Q)
  846. 33110 IF(QAND4)THENPOKEMC,PEEK(MC)ORPW(S2)
  847. 33115 IF(QAND4)=0THENPOKEMC,PEEK(MC)AND(NOTPW(S2))
  848. 33120 IF(QAND2)THENPOKEXE,PEEK(XE)ORPW(S2)
  849. 33125 IF(QAND2)=0THENPOKEXE,PEEK(XE)AND(NOTPW(S2))
  850. 33130 IF(QAND1)THENPOKEYE,PEEK(YE)ORPW(S2)
  851. 33135 IF(QAND1)=0THENPOKEYE,PEEK(YE)AND(NOTPW(S2))
  852. 33150 IFS1>15THEN33160
  853. 33155 Q=B1+S1*SO:FORQI=0TO63:POKEB2+QI,PEEK(Q+QI):NEXT:S1=16
  854. 33160 POKESL+S2,S1:POKESE,PEEK(SE)ORPW(S2):RETURN
  855. 33500 REM *SETUP TREASURE*
  856. 33505 S2=2:IFI>2THENS1=28:GOSUB33100:AN=5:AR=1:RETURN
  857. 33510 S1=27:GOSUB33100:IFI=0THENPOKEC9+2,9:RETURN
  858. 33515 IFI=1THENPOKEC9+2,12:RETURN
  859. 33520 POKEC9+2,7:RETURN
  860. 40000 REM *INPUT ANIMATION ROUTINES*
  861. 40005 AQ=INT(400/AR):FORQ=1TOAQ:FORQQ=1TOAR:GETC$:IFC$<>""THEN16005
  862. 40010 NEXT
  863. 40015 GOSUB40050
  864. 40020 NEXT:IFNM$="DEMO"THEN40005
  865. 40025 GOTO16015
  866. 40050 ONANGOSUB40100,40200,40300,40400,40500
  867. 40055 RETURN
  868. 40100 POKE49483,(PEEK(49483)+128)AND255:RETURN
  869. 40200 AC=(AC+1)AND7:POKE55627,AC:POKEF1+1,20+AC*2:RETURN
  870. 40300 POKEM1,AC:AC=(AC+1)AND15:POKEC9+1,AC:RETURN
  871. 40400 AC=(AC+1)AND15:POKEC9+3,AC:POKECP+6,90+AC*2:RETURN
  872. 40500 POKEM1,RND(1)*15:POKEM2,RND(1)*15:POKEC9+2,RND(1)*15:RETURN
  873. 50000 REM *SETUP SOUND*
  874. 50005 F=54272:F1=F:F2=F+7:F3=F+14:FV=F+24:FT=38400:F4=F+4:F5=F+11:F6=F+18
  875. 50010 I=8098:R=61176/64814:FORK=59TO0STEP-1:NT%(K)=INT(I):I=I*R:NEXT
  876. 50015 FORQ=0TO24:POKEF+Q,0:NEXT:RETURN
  877. 50100 REM *CHIME I TIMES*
  878. 50102 IFPEEK(IB)THENRETURN
  879. 50105 POKEF1+1,11:POKEF1,0:POKEF+5,43:POKEF+6,0:POKEF3+1,5:POKEF3,0:POKEFV,15
  880. 50110 FORQ=1TOI:POKEF4,20:POKEF4,21:FORQQ=1TO10:POKEFZ,RND(1)*8+200:NEXT
  881. 50112 FORQQ=1TO600
  882. 50115 IFPEEK(IB)THENPOKEF4,0:POKEF5,0:POKEF6,0:POKEFV,0:POKEFZ,200:RETURN
  883. 50120 NEXT:NEXT:POKEF4,20:GOSUB19000:POKEFV,0:POKEFZ,200:RETURN
  884. 50200 REM *TITLE PAGE MUSIC*
  885. 50205 POKEF+5,144:POKEF+6,217:POKEF+12,251:POKEF+13,27:POKEF+19,251:POKEF+20,27
  886. 50210 POKEF3,70:POKEF3+1,6:POKEF5,0
  887. 50215 POKEFV,8:FORJ=1TO500:NEXT:POKEF6,129:TI$="000000"
  888. 50220 IFPEEK(IB)THEN50295
  889. 50225 POKEFZ,RND(1)*4+200:IFTI<480THEN50220
  890. 50230 POKEF2,251:POKEF2+1,9:POKEF5,129:TI$="000000"
  891. 50235 IFPEEK(IB)THEN50295
  892. 50240 POKEFZ,RND(1)*4+200:IFTI<540THEN50235
  893. 50245 POKEF6,0:POKEF+19,16:POKEF+20,215:F(0)=17:F(1)=129:F(2)=17:POKEFV,15
  894. 50247 POKESZ,200:POKEF+5,16:POKEF+6,215
  895. 50250 FF=FT:GOSUB50500:IFPEEK(IB)THEN50295
  896. 50255 I=5:GOSUB50100
  897. 50295 Q=AQ+1:POKEF4,0:POKEF5,0:POKEF6,0:FORQ=0TO24:POKEF+Q,0:NEXT:RETURN
  898. 50500 REM *MUSIC SEQUENCER*
  899. 50502 K=F1+1
  900. 50505 TI$="000000":FS=PEEK(FF)*3:IFFS=0THENRETURN
  901. 50515 FF=FF+1:FORI=0TO2:Q=PEEK(FF):IFQ=0THEN50520
  902. 50516 IFQ=255THENPOKEF4+I*7,0:GOTO50520
  903. 50517 POKEF1+I*7,NT%(Q)ANDTH:POKEK+I*7,NT%(Q)/TF:POKEF4+I*7,F(I)
  904. 50520 FF=FF+1:NEXTI:IFPEEK(IB)THENRETURN
  905. 50525 IFAN=3THENGOSUB40300
  906. 50530 IFPEEK(IB)THENRETURN
  907. 50535 IFTI<FSTHEN50525
  908. 50540 GOTO50505
  909. 50600 REM *THRONE MUSIC*
  910. 50605 FORFQ=0TO2:POKEF+5+FQ*7,18:POKEF+6+FQ*7,244:F(FQ)=17:NEXT:FF=38545
  911. 50610 POKEFV,10:GOSUB50500:GOTO50750
  912. 50700 REM *SETUP FOR SOUND EFFECT*
  913. 50705 FORFQ=0TO2:POKEF+5+FQ*7,18:POKEF+6+FQ*7,244:F(FQ)=17:NEXT:POKEFV,10:RETURN
  914. 50750 REM *TURN SOUND OFF*
  915. 50755 FORFQ=0TO24:POKEF+FQ,0:NEXT:RETURN
  916. 60000 REM *TURN RUN/STOP OFF*
  917. 60005 POKE56334,PEEK(56334)AND254
  918. 60010 POKE788,170:POKE789,152
  919. 60012 POKE792,226:POKE793,252
  920. 60015 POKE56334,PEEK(56334)OR1:RETURN
  921. 60100 REM *TURN RUN/STOP ON*
  922. 60105 POKE56334,PEEK(56334)AND254
  923. 60110 POKE788,49:POKE789,234
  924. 60112 POKE792,102:POKE793,254
  925. 60115 POKE56334,PEEK(56334)OR1:RETURN
  926.